home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / mac / oztex-german / OzTeX-1.4d.sit.bin / OzTeX 1.4 / TeX-inputs / pstext.tex < prev    next >
Text File  |  1992-01-23  |  2KB  |  74 lines
  1. % \PStext can be used before switching to a PostScript text font.
  2. % It allows the use of the standard macros for foreign letters and accents.
  3. % \PStext is best used inside a group so that these macro definitions
  4. % automatically revert to the standard definitions at the end of the group.
  5. % If it is undesirable to place \PStext inside a group then \CMtext should
  6. % be called before using a Computer Modern text font.
  7.  
  8. \def\PStext
  9. {% PostScript foreign language locations:
  10. \chardef\ss="FB%
  11. \chardef\ae="F1%
  12. \chardef\oe="FA%
  13. \chardef\o="F9%
  14. \chardef\AE="E1%
  15. \chardef\OE="EA%
  16. \chardef\O="E9%
  17. \chardef\i="F5%
  18. \chardef\l="F8%
  19. \chardef\L="E8%
  20. \def\aa{\leavevmode\raise0.1ex\rlap{\kern0.05em\char'312}a}%
  21. \def\AA{\leavevmode\raise0.4ex\rlap{\kern0.2em\char'312}A}%
  22. \def\j{j\write16{No dotless j in this font!}}%
  23. % PostScript accent locations:
  24. \def\`##1{{\accent193 ##1}}%
  25. \def\'##1{{\accent194 ##1}}%
  26. \def\v##1{{\accent207 ##1}}%
  27. \def\u##1{{\accent198 ##1}}%
  28. \def\=##1{{\accent197 ##1}}%
  29. \def\^##1{{\accent195 ##1}}%
  30. \def\.##1{{\accent199 ##1}}%
  31. \def\H##1{{\accent205 ##1}}%
  32. \def\~##1{{\accent196 ##1}}%
  33. \def\"##1{{\accent200 ##1}}%
  34. \def\b##1{\oalign{##1\crcr\hidewidth%
  35. \vbox to.2ex{\hbox{\char197}\vss}\hidewidth}}%
  36. \def\c##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent203 ##1%
  37. \else{\ooalign{\hidewidth\char203\hidewidth\crcr\unhbox0}}\fi}%
  38. \def\t{\write16{No tie accent in this font!}}%
  39. }
  40.  
  41. \def\CMtext
  42. {% Computer Modern foreign language locations:
  43. \chardef\ss="19%
  44. \chardef\ae="1A%
  45. \chardef\oe="1B%
  46. \chardef\o="1C%
  47. \chardef\AE="1D%
  48. \chardef\OE="1E%
  49. \chardef\O="1F%
  50. \chardef\i="10%
  51. \chardef\j="11%
  52. \def\l{\char32l}%
  53. \def\L{\leavevmode\setbox0\hbox{L}\hbox to\wd0{\hss\char32L}}%
  54. \def\aa{\accent23a}%
  55. \def\AA{\leavevmode\setbox0\hbox{h}\dimen0\ht0\advance\dimen0-1ex%
  56. \rlap{\raise.67\dimen0\hbox{\char'27}}A}%
  57. % Computer Modern accent locations:
  58. \def\`##1{{\accent18 ##1}}%
  59. \def\'##1{{\accent19 ##1}}%
  60. \def\v##1{{\accent20 ##1}}\let\^^_=\v%
  61. \def\u##1{{\accent21 ##1}}\let\^^S=\u%
  62. \def\=##1{{\accent22 ##1}}%
  63. \def\^##1{{\accent94 ##1}}\let\^^D=\^%
  64. \def\.##1{{\accent95 ##1}}%
  65. \def\H##1{{\accent"7D ##1}}%
  66. \def\~##1{{\accent"7E ##1}}%
  67. \def\"##1{{\accent"7F ##1}}%
  68. \def\b##1{\oalign{##1\crcr\hidewidth%
  69. \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}%
  70. \def\c##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent24 ##1%
  71. \else{\ooalign{\hidewidth\char24\hidewidth\crcr\unhbox0}}\fi}%
  72. \def\t##1{{\edef\next{\the\font}\the\textfont1\accent"7F\next##1}}%
  73. }
  74.